home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / logcall.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  88 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGCALL.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/23/89     15:25
  9. *:
  10. *:      Called by: LOGFUNCT.PRG                  
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:
  14. *:        Indexes: &LOGNDX
  15. *:
  16. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  17. *:*********************************************************************
  18. * LOGCALL THIS PROGRAM PRINTS A LOG IN CALL ORDER   VER 890422
  19. * copyright Joe Kasser G3ZCZ 1984 - 1989
  20. * program to print logbook
  21. * called from LOGBOOK
  22.  
  23. * STRUCTURE FOR FILE:  B:LOG     .DBF
  24. * FLD       NAME      TYPE WIDTH   DEC
  25. * 001     DATE         C    008
  26. * 002     TIME         C    004
  27. * 003     BAND         C    003
  28. * 004     CALL         C    010
  29. * 005     RX           C    003
  30. * 006     TX           C    003
  31. * 007     MODE         C    004
  32. * 008     POWER        C    004
  33. * 009     QSLSENT      C    001
  34. * 010     QSLRX        C    001
  35. * 011     COMMENTS     C    010
  36.  
  37. STORE ' ' TO df
  38. ACCEPT 'Do you want hard copy (Y/N) ?' TO df
  39. df = UPPER(df)
  40. IF df = 'Y'
  41.    SET PRINT ON
  42. ENDIF
  43.  
  44. STORE 60 TO linecount
  45. STORE 1 TO pagecount
  46. linecount = INT(linecount)
  47. pagecount = INT(pagecount)
  48.  
  49. USE &logbook
  50. GOTO BOTTOM
  51. IF (EOF() .or. BOF())
  52.    ? 'LOGBOOK IS EMPTY'
  53. ELSE
  54.    STORE DATE TO tdate
  55.    SET INDEX TO &logndx
  56.    GOTO TOP
  57.    DO WHILE .not. EOF()
  58.       IF linecount > 55
  59.          IF df = 'Y'
  60.             EJECT
  61.          ENDIF
  62.          ? 'INDEXED LOGBOOK PRINTOUT  '
  63.          ?? callsign,'   as of ',tdate,'   PAGE ',pagecount
  64.          STORE pagecount + 1 TO pagecount
  65.          ?
  66.          ?
  67.          ? ' CALL        DATE   TIME BND RX  TX  MODE PWR  S R  COMMENTS'
  68.          ? '--------------------------------------------------------------------'
  69.          STORE 3 TO linecount
  70.       ENDIF
  71.       *   now print entries
  72.       ? CALL,DATE,TIME,band,rx,tx,mode,Power,qslsent,qslrx,comments
  73.       STORE linecount + 1 TO linecount
  74.       SKIP
  75.    ENDDO
  76.    USE
  77.    IF df = 'Y'
  78.       EJECT
  79.       SET PRINT OFF
  80.    ELSE
  81.       ?
  82.       WAIT
  83.    ENDIF
  84. ENDIF
  85. RELEASE df,linecount,pagecount,tdate
  86. RETURN
  87. *: EOF: LOGCALL.PRG
  88.